home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf
/
ARexx
/
Modular
/
PlaceText.mod
< prev
next >
Wrap
Text File
|
1993-08-19
|
398b
|
12 lines
/* Print at */
PlaceText:
t = 'Enter details as shown, retaining all commas.'
u = 'x,y,colour,background colour,Required text'
s = Request(100,30,t,u,'Okay','Cancel')
if s ~= '' then do
parse var s x ',' y ',' co ',' bg ',' txt
call SetAPen(HO,co) ; call SetBPen(HO,bg)
call Move(HO,x,y) ; call Text(HO,txt) ; call SetAPen(HO,1)
end
return